10 :
20 :REM BILL MCLEOD'S PI CALC
30 :
40 INPUT"[147][154]ITERATIONS";I
50 PRINT"[147][201]TERATION","   [208]I"
60 PI=4
70 K=1
80 TI$="000000"
90 B=4/(2*K+1)-4/(2*K+3):A=A+B
100 IFA>=1.0E-8THENGOSUB200
110 IFA>0ANDK>1THENPI=PI-A
120 GOSUB210
130 IFK>=ITHEN150
140 K=K+2:GOTO90
150 T$=TI$
160 PRINT"INCREMENT TO PI="B
170 PRINT"HOURS","MINUTES","SECONDS"
180 PRINTLEFT$(T$,2),MID$(T$,3,2),RIGHT$(T$,2)
190 END
200 PI=PI-A
210 PRINT" "K,PI
220 A=0
230 RETURN
240 :
250 :REM FENDER'S TURBO
260 :
270 POKE53371,0
272 INPUT"[147][154]ITERATIONS";I
280 PRINT"[147]"
290 P=4
300 K=3
310 C=0
320 TI$="000000"
322 POKE53265,11
330 P=P-4/K
340 K=K+2:C=C+1
350 P=P+4/K
360 K=K+2:C=C+1
370 REM PRINT""C,P
380 IFC<=ITHEN330
390 T$=TI$
392 POKE53265,27
394 PRINT"[154]"C,P
400 PRINT"HOURS","MINUTES","SECONDS"
410 PRINTLEFT$(T$,2),MID$(T$,3,2),RIGHT$(T$,2)
420 END
10000 D=PEEK(186):N$="0:B.PI CALC":OPEN15,D,15,"S"+N$:CLOSE15:SAVEN$,D:END